$OpenBSD: patch-tcl_tcl_util_c,v 1.3 2007/10/26 14:06:02 steven Exp $
--- tcl/tcl_util.c.orig	Thu May 17 17:15:54 2007
+++ tcl/tcl_util.c	Sat Sep 15 12:39:57 2007
@@ -43,7 +43,7 @@ bdb_RandCommand(interp, objc, objv)
 	 * in the 'berkdb' command.
 	 */
 	if (Tcl_GetIndexFromObj(interp,
-	    objv[1], rcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
+	    objv[1], (CONST84 char **)rcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
 		return (IS_HELP(objv[1]));
 
 	res = NULL;
